home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 099 (1989-05-15)(Ossowski, Stefan)(DE)(PD).adf / PCQ / Include / Ports.i < prev    next >
Text File  |  1989-03-31  |  899b  |  45 lines
  1. {
  2.     These are the things you'll need in order to use Exec messages.
  3.     You will not need to include Exec.i before this.
  4. }
  5.  
  6. type
  7.     Node = record
  8.     lnSucc : ^Node;
  9.     lnPred : ^Node;
  10.     lnType : Byte;
  11.     lnPri  : Byte;
  12.     lnName : String;
  13.     end;
  14.  
  15.     MsgPort = record
  16.     mpNode    : Node;
  17.     mpFlags   : Byte;
  18.     mpSigBit  : Byte;
  19.     mpSigTask : Address;
  20.     mpMsgList : Address;
  21.     end;
  22.     MsgPortPtr = ^MsgPort;
  23.  
  24.     Message = record
  25.     mnNode        : Node;
  26.     mnReplyPort    : MsgPortPtr;
  27.     mnLength    : Short;
  28.     end;
  29.     MessagePtr = ^Message;
  30.  
  31. Procedure AddPort(p : MsgPortPtr);
  32.     forward;
  33. Function FindPort(n : String): MsgPortPtr;
  34.     forward;
  35. Function GetMsg(p : MsgPortPtr): MessagePtr;
  36.     forward;
  37. Procedure PutMsg(p : MsgPortPtr; m : MessagePtr);
  38.     forward;
  39. Procedure RemPort(m : MsgPortPtr);
  40.     forward;
  41. Procedure ReplyMsg(m : MessagePtr);
  42.     forward;
  43. Function WaitPort(p : MsgPortPtr): MessagePtr;
  44.     forward;
  45.